home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Graphisoft / US English / ArchiCAD / ArchiCAD 4.5-68K / ArchiCAD Library / 08 Doors & Windows / Window Macros / oct_grid < prev    next >
Text File  |  1994-03-24  |  372b  |  33 lines
  1. ! oct_grid   /rewritten 2/22/94/***VL/  
  2. ! width, height,
  3. ! frame width, internal frame width,
  4. ! frame thickness
  5. t=e
  6. addy b/2
  7. j=a/2
  8. e=j+c+d
  9. f=b/2+c+d
  10. h=e-c
  11. i=f-c
  12. v=sqr(2)-1
  13.  
  14. if h<0.0001 then 20
  15. mulx j
  16. muly j*i/h
  17. addx v-d
  18. addy -1
  19.     brick d,2,t
  20. addx -2*v+d
  21.     brick d,2,t
  22. addy sqr(2)
  23. addx -0.586
  24. rotz 90
  25. addy -2
  26. addx -d
  27.    brick d,2,t
  28. addx -2*v+d
  29.    brick d,2,t
  30.  
  31. 20:
  32. end
  33.